ROM Magic/ROM Magic.iso/pc/05_101/winprog/getfile.mmm/meta.txt

Text File | 1994-09-30 | 3.3 KB | 51 lines

Name
----
GETFILE/R_NESQUE:FOR_MAC:101ﾂ人窶堙戸†ﾂ､窶忝窶弖ﾅｽg:PROGRAM 3.1.3:

Strings
------
Macromedia Director

stxt
----
FILE No.  1 / 8
--
macro movieControl
    global autoStatus, zoomCounter

    if autoStatus then
        put ticks() + (5 * 60) into waitTime
        repeat while ticks() < waitTime
            if rollOver(5) then
                cursor 143
                placeFileNumber
            else if rollOver(6) then
                cursor 132
                if mouseDown() then
                    go to "return"
                    exit repeat
                end if
            else
                set the locV of sprite 15 = 600
                updateStage
                cursor 139
            end if
        end repeat
        set the locV of sprite 15 = 600
        updateStage
        getFileCounter("1")
        go to marker(1)
    else
        if rollOver(3) then
            cursor 137
            exit
        else if rollOver(4) then
            cursor 138
            exit
        else if rollOver(5) then
            cursor 139
            placeFileNumber
            exit
        else if rollOver(6) then
            cursor 132
            exit
        else if rollOver(7) then
            if zoomCounter = 0 then
                cursor 140
            else if zoomCounter = 1 then
                cursor 141
            else if zoomCounter = 2 then
                cursor 142
            else
                cursor 135
            end if
            exit
        else
            cursor 139
            exit
        end if
    end if


macro placeFileNumber
    global photoCounter, fileNumber

    put "FILE No.  " & photoCounter & " / " & fileNumber into field "fileNumber"

    puppetSprite 15, TRUE
    set the type of sprite 15 =7
    set the ink of sprite 15 = 0
    set the castNum of sprite 15 = the number of cast "fileNumber"
    set the locH of sprite 15 = 250
    set the locV of sprite 15 = 455
    updateStage

    repeat while rollOver(5)
    end repeat

    puppetSprite 15, FALSE
    updateStage


Script Channel Commands
--------------------
movieControl
go to the framecursor 200setPalette photoPalette
getPhoto getPhotoNamesetTransitiongoNext("return")go to marker(-1)setTransition
cursor 139getFileName
getFileCounter(1)
setPalette photoPalette
getPhoto getPhotoName

vwci
----
1025: □Photo1
1026: on mouseUp
    global autoStatus
    if autoStatus then
        exit
    else
        puppetSprite 10, FALSE
        cursor 129
        go to marker(1)
        getFileCounter("-1")
    end if
end mouseUp□PrevPage
1027: on mouseUp
    global autoStatus
    if autoStatus then
        exit
    else
        puppetSprite 10, FALSE
        cursor 129
        go to marker(1)
        getFileCounter("1")
    end if
end mouseUp□NextPage
1028: on mouseUp

end mouseUp□Counter
1029: on mouseUp
    puppetTransition 48, 1, 5
    updateStage
    puppetSprite 10, FALSE
    go to "return"
end mouseUp□return
1030: on mouseDown
    global autoStatus
    if autoStatus then
        exit
    else
        zoomCont
    end if
end mouseDown□Zoom
1031:
fileNumber
1033: □PL1
1034: □PL2
1035: □PL3
1036: □PL4
1037: □PL5
1038: □PL6
1039: □PL7
1040: □PL8
1041: □1
1042: □2
1043: □3
1044: □4
1045: □5
1046: □6
1047: □7
1048: □8
1049: □S1

Fonts
-----
New York
Osaka
Geneva